Imports pixolut.BizBlox

Public Class Food
    Inherits DataObject


'START BizBlox Generated Code : Do not remove or alter this comment
'Last Updated : Tuesday, 24 August 2004 4:01:21 PM
'BizBlox Version : 0.9.1.22818
#Region "BizBlox Generated Code"

    Public Shadows Enum Columns
        FoodID
        Name
        Price
    End Enum

    Public Overrides Function UidColumn() As [enum]
        Return Columns.FoodID
    End Function

    Public Overrides Function TableName() As String
        Return "Food"
    End Function

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal uid As Guid)
        MyBase.New(uid)
    End Sub


    Private m_FoodID As System.Guid
    Public Property FoodID() As System.Guid
        Get
            Return m_FoodID
        End Get
        Set(ByVal Value As System.Guid)
            Me.touch()
            m_FoodID = Value
        End Set
    End Property

    Private m_Name As System.String
    Public Property Name() As System.String
        Get
            Return m_Name
        End Get
        Set(ByVal Value As System.String)
            Me.touch()
            Me.BoundsCheck(Columns.Name, Value , 50)
            m_Name = Value
        End Set
    End Property

    Private m_Price As System.Double
    Public Property Price() As System.Double
        Get
            Return m_Price
        End Get
        Set(ByVal Value As System.Double)
            Me.touch()
            m_Price = Value
        End Set
    End Property
#End Region
'END BizBlox Generated Code : Do not remove or alter this comment

End Class




